﻿Namespace Model

    Public Class StationEventArgs
        Inherits EventArgs

        Public Sub New(ByVal station As Station)
            If station IsNot Nothing Then
                _Station = DirectCast(station.Clone, Station)
            End If
        End Sub

        Private _Station As Station
        Public ReadOnly Property Station() As Station
            Get
                Return _Station
            End Get
        End Property
    End Class

End Namespace
